3.31 \(\int f F^{c (a+b x)} (f x)^{-2+m} (e x \cos (d+e x)+(-1+m+b c x \log (F)) \sin (d+e x)) \, dx\)

Optimal. Leaf size=24 \[ (f x)^{m-1} \sin (d+e x) F^{a c+b c x} \]

[Out]

F^(a*c + b*c*x)*(f*x)^(-1 + m)*Sin[d + e*x]

________________________________________________________________________________________

Rubi [A]  time = 3.97525, antiderivative size = 24, normalized size of antiderivative = 1., number of steps used = 11, number of rules used = 5, integrand size = 44, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.114, Rules used = {12, 6741, 6742, 4468, 4467} \[ (f x)^{m-1} \sin (d+e x) F^{a c+b c x} \]

Antiderivative was successfully verified.

[In]

Int[f*F^(c*(a + b*x))*(f*x)^(-2 + m)*(e*x*Cos[d + e*x] + (-1 + m + b*c*x*Log[F])*Sin[d + e*x]),x]

[Out]

F^(a*c + b*c*x)*(f*x)^(-1 + m)*Sin[d + e*x]

Rule 12

Int[(a_)*(u_), x_Symbol] :> Dist[a, Int[u, x], x] /; FreeQ[a, x] &&  !MatchQ[u, (b_)*(v_) /; FreeQ[b, x]]

Rule 6741

Int[u_, x_Symbol] :> With[{v = NormalizeIntegrand[u, x]}, Int[v, x] /; v =!= u]

Rule 6742

Int[u_, x_Symbol] :> With[{v = ExpandIntegrand[u, x]}, Int[v, x] /; SumQ[v]]

Rule 4468

Int[Cos[(d_.) + (e_.)*(x_)]*(F_)^((c_.)*((a_.) + (b_.)*(x_)))*((f_.)*(x_))^(m_), x_Symbol] :> Simp[((f*x)^(m +
 1)*F^(c*(a + b*x))*Cos[d + e*x])/(f*(m + 1)), x] + (Dist[e/(f*(m + 1)), Int[(f*x)^(m + 1)*F^(c*(a + b*x))*Sin
[d + e*x], x], x] - Dist[(b*c*Log[F])/(f*(m + 1)), Int[(f*x)^(m + 1)*F^(c*(a + b*x))*Cos[d + e*x], x], x]) /;
FreeQ[{F, a, b, c, d, e, f, m}, x] && (LtQ[m, -1] || SumSimplerQ[m, 1])

Rule 4467

Int[(F_)^((c_.)*((a_.) + (b_.)*(x_)))*((f_.)*(x_))^(m_)*Sin[(d_.) + (e_.)*(x_)], x_Symbol] :> Simp[((f*x)^(m +
 1)*F^(c*(a + b*x))*Sin[d + e*x])/(f*(m + 1)), x] + (-Dist[e/(f*(m + 1)), Int[(f*x)^(m + 1)*F^(c*(a + b*x))*Co
s[d + e*x], x], x] - Dist[(b*c*Log[F])/(f*(m + 1)), Int[(f*x)^(m + 1)*F^(c*(a + b*x))*Sin[d + e*x], x], x]) /;
 FreeQ[{F, a, b, c, d, e, f, m}, x] && (LtQ[m, -1] || SumSimplerQ[m, 1])

Rubi steps

\begin{align*} \int f F^{c (a+b x)} (f x)^{-2+m} (e x \cos (d+e x)+(-1+m+b c x \log (F)) \sin (d+e x)) \, dx &=f \int F^{c (a+b x)} (f x)^{-2+m} (e x \cos (d+e x)+(-1+m+b c x \log (F)) \sin (d+e x)) \, dx\\ &=f \int F^{a c+b c x} (f x)^{-2+m} (e x \cos (d+e x)+(-1+m+b c x \log (F)) \sin (d+e x)) \, dx\\ &=f \int \left (\frac{e F^{a c+b c x} (f x)^{-1+m} \cos (d+e x)}{f}+F^{a c+b c x} (f x)^{-2+m} (-1+m+b c x \log (F)) \sin (d+e x)\right ) \, dx\\ &=e \int F^{a c+b c x} (f x)^{-1+m} \cos (d+e x) \, dx+f \int F^{a c+b c x} (f x)^{-2+m} (-1+m+b c x \log (F)) \sin (d+e x) \, dx\\ &=\frac{e F^{a c+b c x} (f x)^m \cos (d+e x)}{f m}+f \int \left (-F^{a c+b c x} (1-m) (f x)^{-2+m} \sin (d+e x)+\frac{b c F^{a c+b c x} (f x)^{-1+m} \log (F) \sin (d+e x)}{f}\right ) \, dx+\frac{e^2 \int F^{a c+b c x} (f x)^m \sin (d+e x) \, dx}{f m}-\frac{(b c e \log (F)) \int F^{a c+b c x} (f x)^m \cos (d+e x) \, dx}{f m}\\ &=\frac{e F^{a c+b c x} (f x)^m \cos (d+e x)}{f m}-(f (1-m)) \int F^{a c+b c x} (f x)^{-2+m} \sin (d+e x) \, dx+\frac{e^2 \int F^{a c+b c x} (f x)^m \sin (d+e x) \, dx}{f m}+(b c \log (F)) \int F^{a c+b c x} (f x)^{-1+m} \sin (d+e x) \, dx-\frac{(b c e \log (F)) \int F^{a c+b c x} (f x)^m \cos (d+e x) \, dx}{f m}\\ &=\frac{e F^{a c+b c x} (f x)^m \cos (d+e x)}{f m}+F^{a c+b c x} (f x)^{-1+m} \sin (d+e x)+\frac{b c F^{a c+b c x} (f x)^m \log (F) \sin (d+e x)}{f m}-e \int F^{a c+b c x} (f x)^{-1+m} \cos (d+e x) \, dx+\frac{e^2 \int F^{a c+b c x} (f x)^m \sin (d+e x) \, dx}{f m}-(b c \log (F)) \int F^{a c+b c x} (f x)^{-1+m} \sin (d+e x) \, dx-2 \frac{(b c e \log (F)) \int F^{a c+b c x} (f x)^m \cos (d+e x) \, dx}{f m}-\frac{\left (b^2 c^2 \log ^2(F)\right ) \int F^{a c+b c x} (f x)^m \sin (d+e x) \, dx}{f m}\\ &=F^{a c+b c x} (f x)^{-1+m} \sin (d+e x)\\ \end{align*}

Mathematica [A]  time = 1.33207, size = 26, normalized size = 1.08 \[ f x (f x)^{m-2} \sin (d+e x) F^{a c+b c x} \]

Antiderivative was successfully verified.

[In]

Integrate[f*F^(c*(a + b*x))*(f*x)^(-2 + m)*(e*x*Cos[d + e*x] + (-1 + m + b*c*x*Log[F])*Sin[d + e*x]),x]

[Out]

f*F^(a*c + b*c*x)*x*(f*x)^(-2 + m)*Sin[d + e*x]

________________________________________________________________________________________

Maple [C]  time = 0.251, size = 213, normalized size = 8.9 \begin{align*} -{\frac{i}{2}}{F}^{c \left ( bx+a \right ) }xf \left ({\frac{{x}^{m}{f}^{m}{{\rm e}^{iex}}{{\rm e}^{id}}{{\rm e}^{-{\frac{i}{2}}\pi \, \left ({\it csgn} \left ( ifx \right ) \right ) ^{3}m}}{{\rm e}^{{\frac{i}{2}}\pi \, \left ({\it csgn} \left ( ifx \right ) \right ) ^{2}{\it csgn} \left ( if \right ) m}}{{\rm e}^{{\frac{i}{2}}\pi \, \left ({\it csgn} \left ( ifx \right ) \right ) ^{2}{\it csgn} \left ( ix \right ) m}}{{\rm e}^{-{\frac{i}{2}}\pi \,{\it csgn} \left ( ifx \right ){\it csgn} \left ( if \right ){\it csgn} \left ( ix \right ) m}}}{{x}^{2}{f}^{2}}}-{\frac{{x}^{m}{f}^{m}{{\rm e}^{-iex}}{{\rm e}^{-id}}{{\rm e}^{-{\frac{i}{2}}\pi \, \left ({\it csgn} \left ( ifx \right ) \right ) ^{3}m}}{{\rm e}^{{\frac{i}{2}}\pi \, \left ({\it csgn} \left ( ifx \right ) \right ) ^{2}{\it csgn} \left ( if \right ) m}}{{\rm e}^{{\frac{i}{2}}\pi \, \left ({\it csgn} \left ( ifx \right ) \right ) ^{2}{\it csgn} \left ( ix \right ) m}}{{\rm e}^{-{\frac{i}{2}}\pi \,{\it csgn} \left ( ifx \right ){\it csgn} \left ( if \right ){\it csgn} \left ( ix \right ) m}}}{{x}^{2}{f}^{2}}} \right ) \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(f*F^(c*(b*x+a))*(f*x)^(-2+m)*(e*x*cos(e*x+d)+(-1+m+b*c*x*ln(F))*sin(e*x+d)),x)

[Out]

-1/2*I*F^(c*(b*x+a))*x*f*(1/x^2/f^2*x^m*f^m*exp(I*e*x)*exp(I*d)*exp(-1/2*I*Pi*csgn(I*f*x)^3*m)*exp(1/2*I*Pi*cs
gn(I*f*x)^2*csgn(I*f)*m)*exp(1/2*I*Pi*csgn(I*f*x)^2*csgn(I*x)*m)*exp(-1/2*I*Pi*csgn(I*f*x)*csgn(I*f)*csgn(I*x)
*m)-1/x^2/f^2*x^m*f^m*exp(-I*e*x)*exp(-I*d)*exp(-1/2*I*Pi*csgn(I*f*x)^3*m)*exp(1/2*I*Pi*csgn(I*f*x)^2*csgn(I*f
)*m)*exp(1/2*I*Pi*csgn(I*f*x)^2*csgn(I*x)*m)*exp(-1/2*I*Pi*csgn(I*f*x)*csgn(I*f)*csgn(I*x)*m))

________________________________________________________________________________________

Maxima [A]  time = 2.29703, size = 43, normalized size = 1.79 \begin{align*} \frac{F^{a c} f^{m - 1} e^{\left (b c x \log \left (F\right ) + m \log \left (x\right )\right )} \sin \left (e x + d\right )}{x} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(f*F^(c*(b*x+a))*(f*x)^(-2+m)*(e*x*cos(e*x+d)+(-1+m+b*c*x*log(F))*sin(e*x+d)),x, algorithm="maxima")

[Out]

F^(a*c)*f^(m - 1)*e^(b*c*x*log(F) + m*log(x))*sin(e*x + d)/x

________________________________________________________________________________________

Fricas [A]  time = 0.500663, size = 65, normalized size = 2.71 \begin{align*} \left (f x\right )^{m - 2} F^{b c x + a c} f x \sin \left (e x + d\right ) \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(f*F^(c*(b*x+a))*(f*x)^(-2+m)*(e*x*cos(e*x+d)+(-1+m+b*c*x*log(F))*sin(e*x+d)),x, algorithm="fricas")

[Out]

(f*x)^(m - 2)*F^(b*c*x + a*c)*f*x*sin(e*x + d)

________________________________________________________________________________________

Sympy [F(-1)]  time = 0., size = 0, normalized size = 0. \begin{align*} \text{Timed out} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(f*F**(c*(b*x+a))*(f*x)**(-2+m)*(e*x*cos(e*x+d)+(-1+m+b*c*x*ln(F))*sin(e*x+d)),x)

[Out]

Timed out

________________________________________________________________________________________

Giac [B]  time = 2.32351, size = 8643, normalized size = 360.12 \begin{align*} \text{result too large to display} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(f*F^(c*(b*x+a))*(f*x)^(-2+m)*(e*x*cos(e*x+d)+(-1+m+b*c*x*log(F))*sin(e*x+d)),x, algorithm="giac")

[Out]

(x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) -
1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x
*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*b*c*x*sgn(F) - 1/4
*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e
- 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a
*c + 1/2*d)^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d) - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)
*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x)
+ 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2
*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1
) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi
*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/
2*d)^2 + x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*s
gn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m
 + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*b*c*x*sgn(
F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m -
1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))*tan(1/4*pi*a*c*sgn(F) - 1/
4*pi*a*c + 1/2*d)^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2 - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*lo
g(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4
*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) +
1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(
x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) -
1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*
a*c - 1/2*d)^2 - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi
*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) -
1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*b*
c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2
*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*s
gn(F) - 1/4*pi*a*c + 1/2*d) - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)
))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*p
i*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*
tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m
*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))*tan(1
/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2 - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(
abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*s
gn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*
pi*sgn(x))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f)
 + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sg
n(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2 + x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs
(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1)
 + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*
sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) +
1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn
(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d) - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*l
og(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/
4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) +
 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2*tan(1/4*pi*a*c*sgn(F) - 1
/4*pi*a*c - 1/2*d) + x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/
4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x
) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*p
i*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d) + x*abs(F)^(a*c)*e^(b*c*x*log
(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1
/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f)
- 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*
sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1
/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2 + x*abs(F)^(a*c)
*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x +
pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor
(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*
floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4
*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2 - x
*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/
4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e
 - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*
a*c + 1/2*d)*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2 + x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f
)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x)
 + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/
2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c
- 1/2*d)^2 - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c
*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*
pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))*tan(1/4*pi*a*c*sgn(
F) - 1/4*pi*a*c + 1/2*d)^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2 + x*abs(F)^(a*c)*e^(b*c*x*log(abs(F))
 + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f
) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sg
n(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2*tan(1/4*pi*a*c*sgn(F)
 - 1/4*pi*a*c - 1/2*d)^2 - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*
tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m
*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan
(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sg
n(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x)) + x*abs(
F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*
b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*
pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x
 + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*fl
oor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2 - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m
*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) -
1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x)
 + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d) + x*abs(F)^(a*c)*e^(b*c*x
*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floo
r(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn
(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d) - x*abs(F
)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b
*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*p
i*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/
2*d)^2 - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*s
gn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m
 - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))*tan(1/4*pi*a*c*sgn(F) -
 1/4*pi*a*c + 1/2*d)^2 - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*ta
n(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*s
gn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1
/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d) + x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(ab
s(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn
(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi
*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d) - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*ab
s(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c
 - 1/2*d) + x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*
x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*p
i*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))*tan(1/4*pi*a*c*sgn(F
) - 1/4*pi*a*c - 1/2*d)^2 + x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))
*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*
m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))*tan(
1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2 + x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log
(abs(f)*abs(x)))*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2 + x
*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/
4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e
 - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x)) - x*abs(F)^(a*c)*e^(b*c*x*log(abs
(F)) + m*log(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*s
gn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/
4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x)) + x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*log(abs(f)*abs(x)) -
2*log(abs(f)*abs(x)))*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d) - x*abs(F)^(a*c)*e^(b*c*x*log(abs(F)) + m*lo
g(abs(f)*abs(x)) - 2*log(abs(f)*abs(x)))*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d))*f/(tan(1/4*pi*b*c*x*sgn(
F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m +
1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*b*c*x*sgn(F)
- 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2
*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4
*pi*a*c + 1/2*d)^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2 + tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi
*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-
1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*
floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4
*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2 + t
an(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*
sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(
1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn
(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4
*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2 + tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4
*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) +
1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2*tan(1/4*pi*a*c*sgn(F) - 1/
4*pi*a*c - 1/2*d)^2 + tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*
pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f)
- 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2
 + tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*p
i*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*
tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m
*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2 + t
an(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*
sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(
1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2 + tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) -
1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x)
 + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2 + tan(1/4*pi*b*c*x*sgn(
F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m +
1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) -
1/4*pi*a*c - 1/2*d)^2 + tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) + 1/
4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/4*sgn(x) + 1) - 1/2*pi*sgn(f
) - 1/2*pi*sgn(x))^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2 + tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*
d)^2*tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2 + tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*
sgn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m + 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1
/4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2 + tan(1/4*pi*b*c*x*sgn(F) - 1/4*pi*b*c*x + pi*m*floor(-1/4*s
gn(f) - 1/4*sgn(x) + 1) + 1/4*pi*m*sgn(f) + 1/4*pi*m*sgn(x) - 1/2*pi*m - 1/2*x*e - 2*pi*floor(-1/4*sgn(f) - 1/
4*sgn(x) + 1) - 1/2*pi*sgn(f) - 1/2*pi*sgn(x))^2 + tan(1/4*pi*a*c*sgn(F) - 1/4*pi*a*c + 1/2*d)^2 + tan(1/4*pi*
a*c*sgn(F) - 1/4*pi*a*c - 1/2*d)^2 + 1)